Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/gen-docs.sc

Text File | 1993-07-16 | 3KB | 1 lines

(dependencies (eulisp0 fn-docs abs-syntx) names (gen-docs) length 455 nslots 7 code ((36 (%%-big-arg-%% 17)) (5 (%%-big-arg-%% 0)) (3 0) (31 (%%-big-arg-%% 140)) (17 1) (36 (%%-big-arg-%% 27)) (5 (%%-big-arg-%% 0)) (4 (%%-static-%% . 6)) (46) (1 (%%-link-me-%% boot . make-installed-module)) (34 2) (36 (%%-big-arg-%% 70)) (5 (%%-big-arg-%% 0)) (8 3) (4 (%%-static-%% . 4)) (5 (%%-me-local--%% . complete-docs)) (3 0) (39) (8 0) (5 (%%-me-local--%% . add-documented-entry)) (3 0) (39) (28 1) (5 (%%-me-local--%% . docs-name)) (3 0) (39) (28 1) (5 (%%-me-local--%% . initialize-docs)) (3 0) (39) (28 1) (17 1) (1 (%%-link-me-%% boot . install-local-bindings)) (34 3) (17 1) (36 (%%-big-arg-%% 28)) (5 (%%-big-arg-%% 1)) (8 3) (4 (%%-static-%% . 5)) (1 (%%-link-me-%% boot . make-interface)) (34 2) (17 1) (14 2 1) (37) (22 0) (3 0) (7 (%%-me-local--%% . *the-directory*)) (4 (%%-static-%% . 0)) (7 (%%-me-local--%% . *entry-count*)) (3 0) (7 (%%-me-local--%% . *module-name*)) (36 (%%-big-arg-%% 214)) (11) (4 (%%-static-%% . 2)) (5 (%%-big-arg-%% 0)) (39) (51 1) (7 (%%-me-local--%% . initialize-docs)) (36 (%%-big-arg-%% 183)) (11) (4 (%%-static-%% . 2)) (6 1) (39) (51 0) (7 (%%-me-local--%% . docs-name)) (36 (%%-big-arg-%% 80)) (11) (4 (%%-static-%% . 2)) (6 2) (39) (51 2) (7 (%%-me-local--%% . add-documented-entry)) (36 (%%-big-arg-%% 25)) (11) (4 (%%-static-%% . 2)) (6 3) (39) (51 0) (7 (%%-me-local--%% . complete-docs)) (18) (3 1) (37) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% fn-docs . finalise-dbase)) (4 (%%-me-local--%% . *the-directory*)) (10) (34 1) (18) (3 0) (9) (7 (%%-me-local--%% . *the-directory*)) (15 2) (37) (4 (%%-me-local--%% . *entry-count*)) (36 (%%-big-arg-%% 43)) (1 (%%-link-me-%% fn-docs . output-record)) (4 (%%-me-local--%% . *the-directory*)) (36 (%%-big-arg-%% 21)) (1 (%%-link-me-%% fn-docs . make-info)) (8 10) (8 10) (11) (34 2) (11) (34 2) (18) (1 (%%-link-me-%% arith . +)) (4 (%%-me-local--%% . *entry-count*)) (4 (%%-static-%% . 3)) (3 0) (62 -3) (9) (7 (%%-me-local--%% . *entry-count*)) (18) (15 4) (37) (18) (4 (%%-me-local--%% . *module-name*)) (37) (10) (9) (7 (%%-me-local--%% . *module-name*)) (18) (36 (%%-big-arg-%% 46)) (1 (%%-link-me-%% fn-docs . make-directory)) (36 (%%-big-arg-%% 29)) (1 (%%-link-me-%% extras0 . format)) (3 0) (4 (%%-static-%% . 1)) (8 9) (3 0) (39) (12) (34 -3) (10) (34 1) (9) (7 (%%-me-local--%% . *the-directory*)) (15 3) (37)) statics (0 "~a.doc" gen-docs 1 (complete-docs add-documented-entry docs-name initialize-docs) ((strip (union (import eulisp0) (import fn-docs) (import abs-syntx))) complete-docs add-documented-entry docs-name initialize-docs) gen-docs))